Start:
PALETTE 0,0,0,0
PALETTE 1,0.75,0.75,0.75
PALETTE 2,0.6,1,0.6
PALETTE 3,1,1,0
DIM li%(100),ve%(1000),hor%(78),mov%(1000)
CLS
LINE (110,55)-(510,135),1,b
PAINT (130,80),1
LINE (110,55)-(510,135),0,b
LINE (100,50)-(500,130),0,bf
LINE (100,50)-(500,130),0,b
LINE (300,50)-(300,130),1
LINE (100,90)-(500,90),1
y1=SIN(-200/10)
FOR x=100 TO 500 STEP 1.4
  y=SIN((x-300)/10)
  LINE (x-1,y1*20+90 )-(x,y*20+90),2
  y1=y
NEXT
COLOR 3
LOCATE 1,1
PRINT "Graph It"
FOR i=0 TO 64 
  GET (i,0)-(i,9),ve%
  PUT (i,0),ve%
  PUT (150+i*4,74),ve%,PSET
  PUT (151+i*4,74),ve%,PSET
  PUT (152+i*4,74),ve%,PSET
  PUT (153+i*4,74),ve%,PSET
NEXT i
FOR i=7 TO 0 STEP -1
  GET (150,74+i)-(406,74+i),ve%
  PUT (150,74+i*2),ve%,PSET
  PUT (150,73+i*2),ve%,PSET
NEXT i
LINE (0,0)-(200,8),0,bf
LOCATE 12,21
PRINT "By"
LOCATE 1,1
PRINT "Flynn D. Fishman"
FOR i=0 TO 128 
  GET (i,0)-(i,8),ve%
  PUT (i,0),ve%
  PUT (190+i*2,94),ve%,PSET
  PUT (191+i*2,94),ve%,PSET
NEXT i
LOCATE 19,20
PRINT "Press The Left Mouse Key To Continue"
COLOR 2
PRINT TAB(15)"For the Help Menu Point the Mouse at the '";:COLOR 0,2:PRINT"?";:COLOR 2,0:PRINT "' Icon
PRINT TAB(24)"and hold the left Mouse Button"
WHILE MOUSE(0)<>-1
  'do nothing
WEND
FOR i=0 TO 201
  LINE (99+i,50)-(500-i,130),3,b
NEXT i
FOR i=1 TO 0 STEP-0.01
  PALETTE 1,i*0.75,i*0.75,i*0.75
  PALETTE 3,i,i,0
NEXT i
LINE (0,0)-(599,151),0,bf
FOR i = 0 TO 1 STEP 0.01
  PALETTE 1,0,i,0
  PALETTE 2,0.6+i*0.4,1,0.6+i*0.4
NEXT i

PALETTE 1,0,1,0
PALETTE 2,1,1,1
PALETTE 3,1,0,0

SetConstants:
  LINE (0,1)-(0,179),1
  GET (0,1)-(0,179),ve%
  PUT (0,1),ve%
  LINE (1,0)-(599,0),1
  GET (1,0)-(599,0),hor%
  PUT (1,0),hor%
  GET (1,1)-(10,179),mov%
    
SetVariables:
  xmin=-10
  xmax=10
  ymin=-10
  ymax=10
  Label=1
  points=100
  accslope=0.0001

'#####################################  
DrawMenu:  
  FOR i=1 TO 16
    LINE (601,i*10)-(617,i*10+8),2,bf
  NEXT i
left.arrow:
  LINE (604,13)-(612,13),0
  LINE (604,15)-(612,15),0
  LINE (609,11)-(614,14),0
  LINE (609,17)-(614,14),0
  LINE (610,11)-(615,14),0
  LINE (610,17)-(615,14),0
Right.arrow:
  FOR i=0 TO 12
    GET (604+i,10)-(604+i,18),li%
    PUT (616-i,20),li%,PSET
    PUT (613-i,30),li%,PSET
    PUT (606+i,40),li%,PSET
    PUT (612-i,50),li%,PSET
  NEXT i
  LINE (611,31)-(616,34),0
  LINE (611,37)-(616,34),0
  LINE (612,31)-(617,34),0
  LINE (612,37)-(617,34),0
  LINE (601,41)-(608,47),3,bf
  LINE (617,51)-(609,57),3,bf
  
Uparrows:
  LINE (606,63)-(608,67),0,bf
  LINE (612,63)-(614,67),0,bf    
  LINE (610,61)-(605,64),0
  LINE (610,61)-(615,64),0
  LINE (609,61)-(604,64),0
  LINE (611,61)-(616,64),0
  FOR i=1 TO 8
    GET (601,60+i)-(617,60+i),li%
    PUT (601,78-i),li%,PSET
    PUT (601,89-i),li%,PSET
    PUT (601,89+i),li%,PSET
    PUT (601,109-i),li%,PSET
  NEXT i
  LINE (610,80)-(605,83),0
  LINE (610,80)-(615,83),0
  LINE (609,80)-(604,83),0
  LINE (611,80)-(616,83),0
  LINE (604,95)-(616,98),3,bf
  LINE (604,103)-(616,100),3,bf

Scale.Icon:
  LINE (601,115)-(617,115),0
  LINE (605,113)-(607,117),3,bf
  LINE (614,113)-(616,117),3,bf  

Accuracy.Icon:
  LOCATE 16,77
  COLOR 3,2
  PRINT "A"

Information.Icon:
  LINE (603,131)-(616,137),0,bf
  FOR i=0 TO 4 STEP 2
    LINE (605,132+i)-(614,132+i),3
  NEXT
  LINE (608,133)-(610,137),0,bf
  LINE (614,133)-(616,137),0,bf  
  
Origion.Icon:
  LINE (609,141)-(611,147),3,bf
  LINE (603,144)-(616,144),3,bf

Quit.Icon:
  LOCATE 1,1
  PRINT "Q"
  GET (0,0)-(7,7),li%
  PUT (605,151),li%,PSET
  
Help.Icon:  
  LOCATE 1,1
  PRINT "?"
  GET (0,0)-(7,7),li%
  PUT (605,161),li%,PSET
  LOCATE 1,1
  COLOR 2,0
  PRINT " "

CHAIN "Graph-Main",,ALL

Finish: